home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / general / LoadPS.rx < prev    next >
Encoding:
Text File  |  1999-12-09  |  2.3 KB  |  129 lines
  1. /* Load PS Picture
  2.    using GhostScript
  3.  
  4.     From Aminet:
  5.  
  6. You need these:
  7.   gfx/show     GS510-data.lha 326K  73 GS5.10 Data-init-config files
  8.   gfx/show GS510-stdfonts.lha 1.5M  73 GS5.10 fonts-std files
  9.   text/dtp   GS510FontMap.lha   5K  62 GS5.10's missing fontmap file
  10.  
  11. One of the following, depending on your processor:
  12.   gfx/show      GS510_020.lha 537K  73 GS5.10-4-020-030-EC040-Amigas
  13.   gfx/show   GS510_020fpu.lha 518K  73 GS5.10-4-020fpu-030fpu-Amigas
  14.   gfx/show   GS510_040fpu.lha 520K  73 GS5.10-4-040fpu-Amigas
  15.  
  16. Optional - but probably worth getting:
  17.   text/dtp  GS510-Install.lha  15K  32 GS5.10-Installation-Routine (V1.02)
  18.   gfx/show GS510-fontsoth.lha 798K  73 GS5.10 fonts-other files
  19.  
  20. */
  21.  
  22.     options results
  23.     parse ARG Port b
  24.  
  25.     ADDRESS value Port
  26.     pp_showscreen
  27.  
  28.     pp_GetDepth
  29.     n=result
  30.     if n~=24 then DO
  31.         pp_Warn 'Only*for*24bits*version.'
  32.         EXIT        
  33.     END
  34.  
  35.  
  36.     ADDRESS COMMAND
  37.     if ~EXISTS('ghostscript:gs') THEN DO
  38.         ADDRESS value Port
  39.         pp_closeasay
  40.         pp_Warn 'Please|Install*Ghostscript*first.'
  41.         EXIT
  42.     END
  43.  
  44.     file=""
  45.  
  46.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/LoadPS') THEN DO
  47.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/LoadPS', "R") then DO
  48.             file = READLN('lfile')
  49.             CALL CLOSE('lfile')
  50.             file2=""
  51.             do i=1 to LENGTH(file)
  52.                 a=SUBSTR(file,i,1)
  53.                 if a=" " then DO
  54.                     a="*"
  55.                 END
  56.                 file2=file2||a
  57.             END
  58.             file=file2
  59.         END
  60.     END
  61.  
  62.     ADDRESS value Port    
  63.     pp_DialogInit 250 60 "*Load*Postscript" 2
  64.         pp_String 0 50 8 150 16 "Name" 1 100 file
  65.  
  66.         n=LASTPOS('/',file)
  67.         if n=0 then DO
  68.             n=LASTPOS(':',file)
  69.             file=SUBSTR(file,1,n)
  70.         END
  71.         else DO            
  72.             file=SUBSTR(file,1,n)
  73.         END
  74.             
  75.         pp_Getfile 1 205 10 0 "Load*PS" 0 file
  76.     pp_Dialog    
  77.  
  78.     rc=result
  79.     if rc=0 then
  80.         do
  81.             EXIT
  82.         end    
  83.  
  84.     pp_GetDialog 0
  85.     file=result
  86.  
  87.     if file="" then
  88.         do
  89.             EXIT
  90.         end
  91.  
  92.     CALL SavePrefs('LoadPS',file)
  93.     ADDRESS value Port
  94.  
  95.     pp_asay 'Loading*PS*file|Please*wait*...'
  96.     ADDRESS COMMAND 'execute PerfectPaint:Rexx/General/data/Ghost.script '||file
  97.         
  98.     ADDRESS value Port
  99.     pp_closeasay
  100.     pp_load 'ram:temp.jpg'
  101.  
  102.     ADDRESS COMMAND
  103.     'delete >nil: ram:temp.jpg'
  104.  
  105.     EXIT
  106.     
  107.  
  108.  
  109. SavePrefs: PROCEDURE
  110.     
  111.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  112.  
  113.     if EXISTS(Prefname) THEN DO
  114.         ADDRESS COMMAND
  115.         'delete >nil: '||Prefname
  116.     END
  117.  
  118.     IF OPEN('pfile',PrefName,'W') THEN DO
  119.  
  120.     do i=2 to ARG()
  121.         CALL WRITELN('pfile',ARG(i))
  122.     end
  123.  
  124.     CALL CLOSE('pfile')
  125.  
  126. RETURN
  127.  
  128.  
  129.